home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / PowerMacOberon feb96 / System / Kepler2.Obj < prev    next >
Encoding:
Text File  |  1996-01-25  |  3.5 KB  |  7 lines  |  [TEXT/.Ob4]
  1. ¯6 
  2. ˇ»8:I7ˆ+:Kepler2Ç/_9Ö‘#gÑÆ ÉNewFractionsÖNewXY#NewOffset‘ÑÖ7ıl¿KeplerGraphs7ı-BKeplerPorts$…¢ãFiles;‚ÜDisplay;‚WêFonts7ı¨>KeplerFrames"…}nMath$ `<Oberon$ !Texts;ı‰ƒViewersܲ=˛f    ˇ]    ˇW˛ˇˇ˛˛áàøAˇËî!ˇ®;·8;√ûÄ~ÉÉ£ù´ΩûÄûÑÉÑú´úûÄæÖÉeõ´{ûÄfiÜÉFö´Zû|˝‡ûÅ}'A÷ûÅ^ä}iR◊@‡1kˇˇ}ùZ±ûû|{–ûÄû|£!÷ûÄfiÜ|Â2◊@‡0Áˇˇ}:±Ä!ªAˇËO‡ |¶øÅˇêî!ˇ∏;·8êA;√;Ñ;•8|8ùûÄæÄBˇ‘HÄA8|8ùûÄæÄBˇ‘Kˇ˛ÂÄA8~8ú8ΩÅ"ˇÃÅIˇÏÄ
  3. ˇ§|    ¶ÄJˇ®O‡!ÄAÄÄ!|¶ªÅˇO‡ |¶øÅˇêî!ˇ∏;·8êA;√;Ñ;•8|8ùû8æÄBˇ‘HÄA8|8ùû8æÄBˇ‘Kˇ˛MÄA8~8ú8ΩÅbˇÃÅãˇÏÄ ˇ¨|    ¶ÄLˇ∞O‡!ÄAÄÄ!|¶ªÅˇO‡ |¶øÅˇêî!˛P;·8êA;¿;†ìø\ìøXìø,ìø ìøìø Äbˇ‡®É ,ÑA‰ƒ8Ä¢ˇÏÄÖˇ‘ĬˇËĶdÖÄ•Ä‚ˇËÄ«dÜÄΔ ÄBˇÏHÄA8ÅˇÏÄàˇ‘ÄBˇÏHÄA©?</    @˙hÅ_@/ä@˝\8XÄBˇ‡HÄA8\ÄBˇ‡Kˇ˝5ÄAÅ@3ãˇˇ,ú@ÂÄbˇ¸ÄBˇ»HÄA;√ÅǡÃÄlˇÙÄBˇ»Kˇ˝ÄA;£ù8`∞}ûìæùÄüXêùùÄø\êΩÄflXÜ®Ê1±Å?\â©I1j±iûìûûÅü@ëû8~Äɡ¸Äˇú|    ¶ÄDˇ†O‡!ÄAÄ¢ˇ‡Äe8ûÄ√ˇ¸Äˇî|    ¶ÄFˇòO‡!ÄAÄ‚ˇ‡Äg8ûÅˇ¸Äˇt|    ¶ÄHˇxO‡!ÄA3úˇˇC‡˛¸Å?Xâ©I1jˇˇ±iÅü\å®l0ɡˇ∞åÄÄÄ!|¶ªÅˇO‡ ø¡ˇ¯î!ˇ¿;·8;√ûûÄæÖÄ≈Ü®Ê∞˛ûûÅàÅ(â©I±^Ä!ª¡ˇ¯O‡ |¶ø°ˇÙêî!ˇ∞;·8êA;¿;†Åbˇ‡©ã / A¯–ÄbˇÙÄBˇ»Kˇ¸ÌÄA;√ÄbˇÃÄcˇÙÄBˇ»Kˇ˚=ÄA;£ù8Ä∞ùù8}ÄBˇ‡Kˇ˝%ÄAù8}ÄBˇ‡Kˇ˚ÄAûìæ8~Ä£ˇ¸Äˇú|    ¶ÄEˇ†O‡!ÄAĬˇ‡Äf8ûÄ„ˇ¸Äˇî|    ¶ÄGˇòO‡!ÄAÅˇ‡Äh8ûÅ#ˇ¸Ä    ˇt|    ¶ÄIˇxO‡!ÄAÄ Ä!|¶ª°ˇÙO‡ ø¡ˇ¯î!ˇ¿;·8;√ûûÅ^äÅjãû©ã®~|å∞ûûûÄæÖÄ≈Üû®Ê©}'B±>Ä!ª¡ˇ¯O‡ |¶øÅˇêî!ˇ∞;·8êA;√;Ñ;•8|8ù8øÄBˇ‘Kˇ˛1ÄAûÅ_±^8|8ù8øÄBˇ‘Kˇ˘ΩÄAûű~8~8ú8ΩÅǡÃÄÃˇÏġ¨|    ¶ÄFˇ∞O‡!ÄAÄ Ä!|¶ªÅˇO‡ |¶øÅˇêî!ˇ∏;·8êA;√;Ñ;•8|8ùû®æÄBˇ‘Kˇ˛…ÄA8|8ùû®æÄBˇ‘Kˇ˘ÄA8~8ú8ΩÄ‚ˇÃÅˇÏġ§|    ¶ÄHˇ®O‡!ÄAÄÄ!|¶ªÅˇO‡ |¶ø¡ˇ¯êî!ˇ∞;·8êA;¿ìflìflÅ"ˇ‡©I /ä@˝(8ÄBˇ‡Kˇ˙ÌÄA8ÄBˇ‡HÄAÄbˇ¯ÄBˇ»Kˇ˚%ÄA;√ÅbˇÃÄkˇÙÄBˇ»Kˇ¯UÄAûê~ûÅûåÄêlûÄûÑ8†∞§ûÄflÜġá©©&}HH±^ûÅãÅüå®l®ã|£ ∞æ8~Ä√ˇ¸Äˇú|    ¶ÄFˇ†O‡!ÄAÄ‚ˇ‡Äg8ûÅˇ¸Äˇî|    ¶ÄHˇòO‡!ÄAÅ"ˇ‡Äi8ûÅCˇ¸Ä
  4. ˇt|    ¶ÄJˇxO‡!ÄAÄ Ä!|¶ª¡ˇ¯O‡ |¶ø·ˇ¸êî!ˇ¿;·8êAÄÄ!|¶ª·ˇ¸O‡ âˇ¸ˇÏFractionDesc ˇ¯ˇÏOffsetDesc     ˇÙˇÏXYDesc
  5. ä
  6.  !#)+.0DKjqú†»ÀÕ–‘Ÿ›fl˛:=BGklnpqvwy{|ìúπ¿Ûı˜˙¸ˇ
  7.  ã¯9 8Fraction.Calcself·{|x0‚{x1„{y0‰{y1Â{¯fl8Fraction.WriteR„{tself·{|¯Ö8Fraction.ReadR„{tself·{|¯å¯8NewFractionsS    Tc‚{tf·{|i„{p0ÿxp1‹x¯£8XY.Calcself·{t¯Á8NewXYc‚{tcp·{t¯Ñ8Offset.Calcself·{x¯Æ8Offset.ReadR„{tself·{xt¯‘8Offset.WriteR„{tself·{x¯Ø8NewOffsetoffset·{xp0xp1x¯∫8$$˜ FractionDesccntdn˜ OffsetDescdxdy˜XYDesc